home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 18
/
Mac Magazin and MacEasy Magazine CD - Issue 18.iso
/
Musik & Kunst
/
4OP Librarian 1.0.0
/
Sample Scripts
/
13 Set Comment Text - 3
< prev
next >
Wrap
Text File
|
1996-01-11
|
226b
|
9 lines
tell application "4OP Librarian"
activate -- if needed
set x to "This patch was made by T.Suzuki"
repeat while (Text 1 of Window -1 is not x)
set Index of Window -1 to 1
set Text 1 of Window 1 to x
end repeat
end tell